home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / misc / 2b_Ort.lha / Ort / ARexx / SprLin.ced < prev    next >
Text File  |  1999-02-10  |  2KB  |  83 lines
  1. /*
  2. $ver: SprLin.ced 1.1 (16.01.99)
  3. (c) 1998 Stanisîaw Wësîawski
  4.  
  5. Ten skrypt jest przeznaczony dla programu CED. Powoduje on korektë
  6. programem Ort linii tekstu, w której znajduje sië kursor tekstowy.
  7. Podczas korygowania, sprawdzany dokument w programie CED jest zablokowany.
  8. Skrypt najlepiej podîoûyê pod klawisz funkcyjny.
  9.  
  10. UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu skryptem instalacyjnym Orta,
  11.          to musisz dopisaê nastëpujâcâ linië:
  12.          ORTFILENAME=ôcieûka dostëpu/Ort
  13.      Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
  14.          do programu Ort (np. ORTFILENAME='dh2:tekst/ort/ort').
  15. */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. IF ~SHOW('P', 'rexx_ced') THEN EXIT 1
  20. ADDRESS "rexx_ced"
  21.  
  22. Status LINEMEMORYLENGTH
  23. IF RESULT=0 THEN DO
  24.   DOWN
  25.   EXIT
  26. END
  27.  
  28. IF ~SHOW('P', '2b_Ort_rexx') THEN DO
  29.    IF ORTFILENAME='ORTFILENAME' THEN DO
  30.      OKAY1 'Program Ort nie jest uruchomiony.'
  31.      EXIT
  32.    END
  33.    ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'"'
  34.    ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
  35. END
  36.  
  37. status NumChanges
  38. if result ~= 0 then Save
  39.  
  40. Status ClipUnit
  41. cedclip=result
  42. SET CLIPBOARD UNIT 254
  43.  
  44. BEG OF LINE
  45. MARK BLOCK
  46. "END OF LINE"
  47.  
  48. Copy Blok
  49. IF result=0 THEN DO
  50.   SET CLIPBOARD UNIT cedclip
  51.   EXIT 0
  52. END
  53.  
  54. ADDRESS '2b_Ort_rexx'
  55.  
  56. Info Hide
  57. ortsleep=RESULT
  58. IF ortsleep=1 THEN Show
  59.  
  60. PREFS CLIPBOARD
  61. ortclip=result
  62. PREFS CLIPBOARD 254
  63.  
  64. ORT TO FRONT
  65.  
  66. LOAD FROM CLIP
  67. IF rc=0 THEN DO
  68.    CORRECTION
  69.    IF ~(rc=5) THEN SAVE TO CLIP
  70. END
  71. PREFS CLIPBOARD ortclip
  72. IF ortsleep=1 THEN Hide
  73.  
  74. ADDRESS "rexx_ced"
  75.  
  76. CedToFront        
  77. Delete Line
  78. Paste
  79. Text "0a"x
  80.  
  81. Set Clipboard Unit cedclip
  82. EXIT
  83.